    Dim p As Persona
    With p
        .nombre = "Juan Antonio"
        .direccion = "C/Pez, 23"
        .poblacion = "Bada del Valls"
        .prov = pr
        .dni = "12345678"
        .edad = 35
    End With
